home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Whiteline: delta
/
whiteline CD Series - delta.iso
/
progtool
/
modula2
/
module
/
menuevnt.def
< prev
next >
Wrap
Text File
|
1995-11-25
|
5KB
|
107 lines
(******************************************************************************)
(* This MODULE is Public Domain. Copy me like a beast! *)
(* Christian Ledermann *)
(* Wölfelkofen 2 *)
(* 84166 Adlkofen *)
(******************************************************************************)
(* *)
(* Started: 20.12.92 03:54:30 *)
(* Version: 20.12.89 00:164:12:54 *)
(* *)
(******************************************************************************)
(* *)
(* Diese Software ist ohne jede Garantie. Ich verspreche *)
(* keinerlei Wartung und übernehme keine Verantwortung für Schäden die *)
(* durch die Benutzung dieses Programmes entstehen. *)
(* Jegliche Ersatzansprüche lehne ich ab. *)
(* *)
(******************************************************************************)
DEFINITION MODULE MenuEvnt;
FROM SYSTEM IMPORT ADDRESS;
CONST
MINDMENU = 0; (* TREE *)
DESK = 3; (* OBJECT in TREE #0 *)
ABOUT = 10; (* OBJECT in TREE #0 *)
DATEI = 4; (* OBJECT in TREE #0 *)
LOAD = 21; (* OBJECT in TREE #0 *)
SAVE = 22; (* OBJECT in TREE #0 *)
EDIT = 23; (* OBJECT in TREE #0 *)
QUIT = 20; (* OBJECT in TREE #0 *)
SESSION = 5; (* OBJECT in TREE #0 *)
OPTIONS = 6; (* OBJECT in TREE #0 *)
EXTRAS = 7; (* OBJECT in TREE #0 *)
HELP = 45; (* OBJECT in TREE #0 *)
EARTHHAR = 28; (* OBJECT in TREE #0 *)
MBEDIT = 1; (* TREE *)
ANFREQ = 1; (* OBJECT in TREE #1 *)
ENDFREQ = 2; (* OBJECT in TREE #1 *)
GESCHWIN = 3; (* OBJECT in TREE #1 *)
A1 = 5; (* OBJECT in TREE #1 *)
A2 = 6; (* OBJECT in TREE #1 *)
A3 = 7; (* OBJECT in TREE #1 *)
A4 = 8; (* OBJECT in TREE #1 *)
TEST = 43; (* OBJECT in TREE #0 *)
OKAY = 14; (* OBJECT in TREE #1 *)
CANCEL = 13; (* OBJECT in TREE #1 *)
ANREGUNG = 29; (* OBJECT in TREE #0 *)
A5 = 9; (* OBJECT in TREE #1 *)
A6 = 10; (* OBJECT in TREE #1 *)
A7 = 11; (* OBJECT in TREE #1 *)
A8 = 12; (* OBJECT in TREE #1 *)
B1 = 16; (* OBJECT in TREE #1 *)
B2 = 17; (* OBJECT in TREE #1 *)
B3 = 18; (* OBJECT in TREE #1 *)
B4 = 19; (* OBJECT in TREE #1 *)
B5 = 20; (* OBJECT in TREE #1 *)
B6 = 21; (* OBJECT in TREE #1 *)
B7 = 22; (* OBJECT in TREE #1 *)
B8 = 23; (* OBJECT in TREE #1 *)
C1 = 25; (* OBJECT in TREE #1 *)
C2 = 26; (* OBJECT in TREE #1 *)
C3 = 27; (* OBJECT in TREE #1 *)
C4 = 28; (* OBJECT in TREE #1 *)
C5 = 29; (* OBJECT in TREE #1 *)
C6 = 30; (* OBJECT in TREE #1 *)
C7 = 31; (* OBJECT in TREE #1 *)
C8 = 32; (* OBJECT in TREE #1 *)
D1 = 34; (* OBJECT in TREE #1 *)
D2 = 35; (* OBJECT in TREE #1 *)
D3 = 36; (* OBJECT in TREE #1 *)
D4 = 37; (* OBJECT in TREE #1 *)
D5 = 38; (* OBJECT in TREE #1 *)
D6 = 39; (* OBJECT in TREE #1 *)
D7 = 40; (* OBJECT in TREE #1 *)
D8 = 41; (* OBJECT in TREE #1 *)
NEXT = 42; (* OBJECT in TREE #1 *)
XSESSION = 31; (* OBJECT in TREE #0 *)
PREVIOUS = 43; (* OBJECT in TREE #1 *)
TON = 39; (* OBJECT in TREE #0 *)
LEDS = 40; (* OBJECT in TREE #0 *)
MAGNET = 41; (* OBJECT in TREE #0 *)
BUECHER = 46; (* OBJECT in TREE #0 *)
HARDWARE = 47; (* OBJECT in TREE #0 *)
INSERT = 44; (* OBJECT in TREE #1 *)
DELETE = 45; (* OBJECT in TREE #1 *)
NEW = 25; (* OBJECT in TREE #0 *)
MERGE = 24; (* OBJECT in TREE #0 *)
DAUER = 46; (* OBJECT in TREE #1 *)
VERLAUF = 32; (* OBJECT in TREE #0 *)
STEPXOFN = 48; (* OBJECT in TREE #1 *)
SOUNDDIA = 2; (* TREE *)
ABOUTDIA = 3; (* TREE *)
LITERDIA = 4; (* TREE *)
GEGENDIA = 5; (* TREE *)
HARDWDIA = 6; (* TREE *)
GEGENANZ = 48; (* OBJECT in TREE #0 *)
HARALDW = 34; (* OBJECT in TREE #0 *)
HYPNOSYN = 35; (* OBJECT in TREE #0 *)
MIDSUMME = 33; (* OBJECT in TREE #0 *)
ALLGBENU = 36; (* OBJECT in TREE #0 *)
RUHEWACH = 37; (* OBJECT in TREE #0 *)
ə
PROCEDURE MenueEreignis(msgret:INTEGER;menueadresse:ADDRESS):BOOLEAN;
END MenuEvnt.